﻿Module Module1
  Sub Main()

    ' Esempio: 08.07
    Dim ruote() As String = {"NAZIONALE", "BARI", _
                   "CAGLIARI", "FIRENZE", "GENOVA", _
                   "MILANO", "NAPOLI", "PALERMO", _
                   "ROMA", "TORINO", "VENEZIA"}
    Array.Sort(ruote)
    For i As Integer = 0 To 10
      Console.WriteLine(ruote(i))
    Next
    Console.ReadLine()

  End Sub
End Module
